object FormUnits: TFormUnits
  Left = 0
  Top = 0
  Caption = 'Common Scripts'
  ClientHeight = 556
  ClientWidth = 633
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnKeyDown = FormKeyDown
  OnMouseMove = FormMouseMove
  PixelsPerInch = 120
  TextHeight = 16
  object ImagePointer: TImage
    Left = 124
    Top = 5
    Width = 21
    Height = 392
  end
  object Label2: TLabel
    Left = 146
    Top = 3
    Width = 211
    Height = 14
    AutoSize = False
    Caption = '&Script'
    FocusControl = Script
  end
  object Bevel1: TBevel
    Left = 145
    Top = 403
    Width = 480
    Height = 27
    Shape = bsFrame
  end
  object BtnClear: TBitBtn
    Left = 603
    Top = 409
    Width = 22
    Height = 21
    Hint = 'Clears the script'
    Glyph.Data = {
      F6000000424DF60000000000000076000000280000000C000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      00008888888888880000F888888888880000FFF8888888880000FFFFF8888888
      0000FFFFFFF888880000FFFFFF1178880000FF8FF1D997880000F888819D9778
      0000888887997337000088888877B333000088888883BB330000888888883BB3
      00008888888883BB000088888888883B00008888888888830000}
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 0
    TabStop = False
    OnClick = BtnClearClick
  end
  object BtnDeleteScript: TBitBtn
    Left = 4
    Top = 403
    Width = 121
    Height = 27
    Hint = 'Delete the currently selected script unit'
    Caption = 'Dele&te Unit'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555FFFFFFFFFFFF55500000000000055557777777777775F501111111111
      110557F5FFFFFFFFFF7F501999999999910557F7777777777F7F501999999999
      910557F777777777757F5011111111111105575FFFFFFFFFFF75550000000000
      0055557777777777775555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 1
    TabStop = False
    OnClick = BtnDeleteUnitClick
  end
  object PanelNewUnit: TPanel
    Left = 4
    Top = 436
    Width = 621
    Height = 56
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 6
      Width = 51
      Height = 16
      Caption = 'Ne&w Unit'
      FocusControl = EditUnit
    end
    object BtnUpdate: TBitBtn
      Tag = 1
      Left = 506
      Top = 22
      Width = 110
      Height = 25
      Hint = 'Replaces the currently selected alias with the new alias name'
      Caption = 'Re&name Alias'
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888887777
        78888888000088888882222277788888000088888822222A2277888800008888
        888888822A277888000088887888888882A27777000088857788888887227227
        0000885D5788888822AA2A280000885D577888822AAAA278000085DDD5777888
        82AAA288000085DDDD558888882A278800005D5DD5588888882A288800005585
        577888888882888800008885D577788888888888000088885D55777777788888
        00008888855D5555558888880000888888855555888888880000}
      ParentShowHint = False
      ShowHint = False
      Spacing = -1
      TabOrder = 2
      OnClick = BtnAddUnitClick
    end
    object BtnAddUnit: TBitBtn
      Left = 393
      Top = 22
      Width = 110
      Height = 25
      Hint = 'Add the above unit to the list of existing script units'
      Caption = 'Add &Unit'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555555FFFF55555555555000055555555555577775F5555555550222205
        5555555557F55F7F55555555502AA2055555555557F77F7F55555555502AA205
        5555555FF7F77F7FFFF55500002AA2000055557777577F77775F5022222AA222
        220557F5FFF77FFFFF7F502AAAAAAAAAA20557F7777777777F7F502AAAAAAAAA
        A20557F777777777757F5022222AA2222205575FFFF77F5FFF755500002AA200
        0055557777F77F7777555555502AA2055555555557F77F7F55555555502AA205
        5555555557F7757F555555555022220555555555575FFF755555555555000055
        5555555555777755555555555555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      Spacing = -1
      TabOrder = 1
      OnClick = BtnAddUnitClick
    end
    object EditUnit: TEdit
      Left = 8
      Top = 22
      Width = 379
      Height = 25
      Hint = 'Enter the name of a new script unit here'
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      MaxLength = 60
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      OnKeyPress = EditUnitKeyPress
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 537
    Width = 633
    Height = 19
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 3
    object Status: TLabel
      Left = 1
      Top = 1
      Width = 631
      Height = 17
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ExplicitWidth = 3
      ExplicitHeight = 14
    end
  end
  object BtnHelp: TBitBtn
    Left = 4
    Top = 506
    Width = 18
    Height = 18
    Hint = 'Help!'
    Glyph.Data = {
      D6000000424DD60000000000000076000000280000000C0000000C0000000100
      0400000000006000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888778888
      0000888880077888000088880BB07888000088880BB088880000888880077888
      000088880BB077880000888770BB077800008800770BB0780000880B0770B078
      0000880BB00BB08800008880BBBB088800008888000088880000}
    TabOrder = 4
    TabStop = False
    OnClick = BtnHelpClick
  end
  object BtnDone: TBitBtn
    Left = 390
    Top = 498
    Width = 110
    Height = 25
    Hint = 'Closes the aliases screen'
    Cancel = True
    Caption = '&Close'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555555F5555555555555505555555555555557FF5555555555550005555
      555555555777F555555555550CC05555555555557F57FF55555555550CE00555
      5555555575577F5555555550CEEC05555555555755557FF55555550CECEC0055
      5555557F5FF577F55555550C00CEC0555555557F775F575F55555500550CE005
      555555775575F57F555555555550CC055555555555575F7FF555555555550C00
      5555555555557577FF555555555550C005555555555557577FF555555555550C
      005555555555557577FF555555555550C005555555555557577F555555555555
      0000555555555555777755555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 5
    OnClick = BtnDoneClick
  end
  object Script: TDBSynEdit
    Left = 145
    Top = 20
    Width = 488
    Height = 377
    Hint = 'Command script'
    DataField = 'Script'
    DataSource = DSUnits
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 6
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -13
    Gutter.Font.Name = 'Courier New'
    Gutter.Font.Style = []
    Gutter.ShowLineNumbers = True
    Gutter.Visible = False
    Gutter.Width = 0
    Highlighter = SynDWSSyn1
  end
  object EditCopy: TEdit
    Left = 254
    Top = 500
    Width = 121
    Height = 24
    TabStop = False
    TabOrder = 7
    Visible = False
  end
  object GridUnits: TPortalGrid
    Left = 8
    Top = 0
    Width = 121
    Height = 397
    Hint = 'Existing aliases'
    DataSource = DSUnits
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Options = [dgTitles, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnDblClick = GridUnitsDblClick
    OnKeyPress = GridUnitsKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Width = 117
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Left = 268
    Top = 96
    object Main1: TMenuItem
      Caption = 'Main'
      Visible = False
      object MenuHelp: TMenuItem
        Caption = 'Help'
        ShortCut = 112
      end
      object CtrlF1: TMenuItem
        Tag = 998
        Caption = 'Ctrl+F'
        ShortCut = 16454
      end
      object CtrlR1: TMenuItem
        Tag = 997
        Caption = 'Ctrl+R'
        ShortCut = 16466
      end
      object CtrlZ1: TMenuItem
        Caption = 'Ctrl+Z'
        ShortCut = 16474
      end
      object Esc1: TMenuItem
        Caption = 'Esc'
        ShortCut = 27
      end
      object CtrlA1: TMenuItem
        Tag = 999
        Caption = 'Ctrl+A'
        ShortCut = 16449
      end
    end
  end
  object TimerPointer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = TimerPointerTimer
    Left = 36
    Top = 152
  end
  object DSUnits: TDataSource
    DataSet = Datawell.Tableunits
    OnDataChange = DSUnitsDataChange
    Left = 36
    Top = 64
  end
  object SynDWSSyn1: TSynDWSSyn
    DefaultFilter = 'DWScript Files (*.dws;*.pas;*.inc)|*.dws;*.pas;*.inc'
    Options.AutoDetectEnabled = False
    Options.AutoDetectLineLimit = 0
    Options.Visible = False
    Left = 312
    Top = 296
  end
end
